Index.asp 6KBBS ASP版 V7.1 - ASP源码程序

www.gusucode.com > 6KBBS ASP版 V7.1 > 6KBBS ASP版 V7.1\code\bbs\Index.asp
    <!--#include file="Inc.asp"-->
<%
bbsname=application(prefix&"bbsname")
style=application(prefix&"style")
plugin=application(prefix&"plugin")
Cssstyleid=request.cookies(prefix&"1")("styleid")
if Cssstyleid="" then response.redirect"Cookies.asp?action=style"

if style="" then
	set rs=conn.execute("select * from style")
		do while not rs.eof
			style=style&"<a href=""Cookies.asp?action=style&id="&rs("id")&""">"&rs("stylename")&"</a><br>"
			rs.movenext
		loop
	set rs=nothing
	application(prefix&"style")=style
end if

if plugin="" then
	set rs=conn.execute("select * from plugin")
		do while not rs.eof
			plugin=plugin&"<a href="""&rs("pluginlink")&""">"&rs("pluginname")&"</a><br>"
			rs.movenext
		loop
	set rs=nothing
	application(prefix&"plugin")=plugin
end if


dim mode
mode=Request.Cookies(prefix&"1")("bbsmode")
if mode="" then
	mode=application(prefix&"automode")
	Response.Cookies(prefix&"1")("bbsmode")=mode
	Response.Cookies(prefix&"1").Expires=date+365
end if

if mode=1 then
%>
<html>

<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title><%=checktitle(bbsname)%></title>
<link rel="stylesheet" type="text/css" href="skin/<%=Cssstyleid%>/global.css">
</head>
<frameset framespacing="0" border="0" frameborder="0" rows="50,*">
	<frame name="toplan" scrolling="no" noresize target="contents" src="Top.asp" marginwidth="0" marginheight="0">
	<frameset id="frmbody" cols="155,10,*">
		<frame name="leftlan" target="main" src="Left.asp" marginwidth="0" marginheight="0" scrolling="yes">
		<frame name="hidden" target="hidden" src="hidden.asp" marginwidth="0" marginheight="0" scrolling="no" noresize>
		<frame name="main" src="Main.asp" marginwidth="0" marginheight="0" scrolling="auto">
	</frameset>
	<noframes>
	<body>

	<p>此网页使用了框架，但您的浏览器不支持框架。</p>

	</body>
	</noframes>
</frameset>

</html>
<%else
response.redirect"main.asp"
%>

<%end if%>